home *** CD-ROM | disk | FTP | other *** search
- -- background: 29303 from stack: in.0
- -- bmap block id: 29474
- -- flags: 0000
- -- background id: 0
- -- name: Registration
- ----- HyperTalk script -----
- on openCard
- global viewTime
- put the seconds into viewTime
- end openCard
-
- on returnKey
- global stringToFind
- if the visible of msg is true or stringToFind is empty then
- pass returnKey
- else
- if the foundText is not empty then
- find string stringToFind
- if the result is not "not found" then
- play stop
- play harpsichord a7t ae
- end if
- end if
- end if
- end returnKey
-
- on find
- if the visible of msg is true then
- show msg
- end if
- pass find
- end find
-
- on arrowKey
- -- do nothing
- end arrowKey
-
-
-
- -- part 13 (field)
- -- low flags: 01
- -- high flags: 0000
- -- rect: left=2 top=3 right=21 bottom=451
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 20
- -- text size: 12
- -- style flags: 2304
- -- line height: 16
- -- part name: Header
-
-
- -- part 22 (field)
- -- low flags: 01
- -- high flags: 0000
- -- rect: left=343 top=3 right=20 bottom=510
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 65535
- -- font id: 20
- -- text size: 12
- -- style flags: 2304
- -- line height: 16
- -- part name: Page Number
-
-
- -- part 43 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=94 top=305 right=337 bottom=130
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Home
- ----- HyperTalk script -----
- on mouseDown
- play stop
- play harpsichord a7e
- end mouseDown
-
- on mouseUp
- doMenu Quit HyperCard
- end mouseUp
-
-
- -- part 49 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=163 top=99 right=118 bottom=229
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Cancel
- ----- HyperTalk script -----
- on mouseUp
- go to card "Registration"
- end mouseUp
-
-
-
- -- part 50 (button)
- -- low flags: 00
- -- high flags: 2000
- -- rect: left=463 top=305 right=337 bottom=499
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Contents
- ----- HyperTalk script -----
- on mouseDown
- play stop
- play harpsichord a7e
- end mouseDown
-
- on mouseUp
- put true into allClear
- repeat with n = 1 to 14
- if the hilite of card button n is true then
- put false into allClear
- exit repeat
- end if
- end repeat
-
- if card field "Address" is not empty then
- put false into allClear
- end if
-
- if card field "Other" is not empty then
- put false into allClear
- end if
-
- if allClear then
- visual effect dissolve
- go to card "Registration Dissolve"
- visual effect iris close to black
- visual effect iris open
- go to card "Main Menu"
- else
- global alreadyPrinted
- if not alreadyPrinted then
- answer "You haven't printed this page yet. Print?" with "No" or "OK"
- if it is "OK" then
- global alreadyPrinted
- put true into alreadyPrinted
- set lockScreen to true
- open printing
- print 2 cards
- close printing
- set lockScreen to false
- end if
- end if
-
- answer "Clear page before returning to Main Menu?" with "Cancel" or "No" or "OK"
- if it is not "Cancel" then
- if it is "OK" then
- put empty into card field "Address"
- put empty into card field "Other"
- repeat with n = 1 to 14
- set the hilite of card button n to false
- end repeat
- end if
- visual effect dissolve
- go to card "Registration Dissolve"
- visual effect iris close to black
- visual effect iris open
- go to card "Main Menu"
- end if
- end if
- end mouseUp
-